home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / guestppe.zip / GUEST.PPS < prev   
Text File  |  1993-07-01  |  4KB  |  82 lines
  1. ;****************************************************************************
  2. ;*                                                                          *
  3. ;*      "Who was that masked man?"                                          *
  4. ;*                                                                          *
  5. ;*      "I dunno, but he left his name and address in the caller log!"      *
  6. ;*                                                                          *
  7. ;*          GUEST.PPE was written on July 1st, 1993 by Wm Duemler           *
  8. ;*          with the help of everyone who is beta testing PCBoard           *
  9. ;*          15.0.  I will now list them individually by name...             *
  10. ;*                                                                          *
  11. ;*          Nevermind. The comments are already longer than the code.       *
  12. ;*                                                                          *
  13. ;*          This simple PPE is dedicated to Larry Steele who regularly      *
  14. ;*          helps me learn how to do this stuff by posting his source       *
  15. ;*          code.  Please feel free to modify this in any way you like      *
  16. ;*          as long as you make the source code available to everyone       *
  17. ;*          and add things that will help other sysops.                     *
  18. ;*                                                                          *
  19. ;* **************************************************************************
  20. ;*                                                                          *
  21. ;*      TIPS BBS is run by Ven-Tel Modems (nice plug!).  Many of our        *
  22. ;*      customers have need to call in and get firmware code updates that   *
  23. ;*      are not readily available to the general public.  We set them up    *
  24. ;*      with a special guest user account and a special security level of   *
  25. ;*      35 (regular users are 30).  The only account on the board with this *
  26. ;*      security level is the one named SPECIAL CUSTOMER, so I created a    *
  27. ;*      special file called 35 which displays every time someone logs on    *
  28. ;*      as SPECIAL CUSTOMER.  35 is a one-line text file that says:         *
  29. ;*                                                                          *
  30. ;*                       !C:\PCB\PPE\GUEST.PPE                              *
  31. ;*                                                                          *
  32. ;*      All this PPE does is prompt the guest user for their real name      *
  33. ;*      and location.  It writes it to the caller log so I know who has     *
  34. ;*      really been using my guest account.                                 *
  35. ;*                                                                          *
  36. ;*      What a huge build-up for a silly little PPE!                        *
  37. ;*                                                                          *
  38. ;****************************************************************************
  39.  
  40.  
  41. STRING Answer,Name,City
  42.  
  43. :askquestions
  44.  
  45. Answer = ""
  46. Name   = ""
  47. City   = ""
  48.  
  49. CLS
  50. PRINTLN
  51. PRINTLN   "@X00@X4F  Please enter your REAL name and where you are calling from.  @X07"
  52. PRINTLN
  53.  
  54. :getname
  55. PRINTLN
  56. INPUTTEXT "@X0BYour REAL name (First and Last):  @X02",Name,0Eh,25
  57. PRINTLN
  58.  
  59. if (Name="") goto getname
  60.  
  61. PRINTLN
  62. :getcity
  63. INPUTTEXT "@X0BWhere are you calling from?  @X02",City,0Eh,40
  64. PRINTLN
  65.  
  66.  
  67. if (City = "") goto getcity
  68.  
  69. PRINTLN
  70. INPUTYN "@X04Is the above information correct? @X0E",Answer,0Eh
  71. if (Answer <> YesChar()) goto askquestions
  72.  
  73. PRINTLN
  74. PRINTLN
  75. PRINTLN "@X8FThank You!@XFF"
  76. PRINTLN
  77.  
  78. LOG "Caller's City: "+City,false
  79. LOG "Caller's Real Name: "+Name,false
  80.  
  81. MORE
  82.